home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-04_1985_Verlag_Heinz_Weise_de.d64 / L A S T N O T (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  186 lines
  1. 10000 rem  m o d u l    last not least  [ 4 / 85 ]
  2. 10200 :
  3. 10400 rem ************************
  4. 10600 poke50257,4:rem systempoke
  5. 10800 rem ************************
  6. 11000 :
  7. 11200 si=54272:vi=53284:ll$="                    "
  8. 11400 printchr$(14)chr$(8);"[147][144]";:poke53280,8:poke53281,8
  9. 11600 gosub43600:z=1:s=6:gosub52400:print"[204] [193][160][211][160][212][160][160][160][206][160][207][160][212][160][160][160][204][160][197][160][193][160][211][160][212]"
  10. 12200 z=8:s=2:gosub52400:print" 1 [144]  [215] i r   s t e l l e n   e i n"
  11. 12400 z=10:s=2:gosub52400:print" 2 [144]  [193] u t o r e n [160] g e s u c h t"
  12. 12600 z=12:s=2:gosub52400:print" 3 [144]  [215] e t t b e w e r b"
  13. 12700 z=14:s=2:gosub52400:print" 4 [144]  [201][206][208][213][212] 64[146]  a u f   [196] i s k e t t e"
  14. 12800 z=16:s=2:gosub52400:print" 5 [144]  [214] o r s c h a u  [201][206][208][213][212] 64[146] 5/85"
  15. 13000 z=24:s=3:gosub52400:print"[158][215]ahl    1 - 5 [146]";:fort=0to200:nextt
  16. 13200 getg$:ifg$=""then13800
  17. 13400 ifg$>"0"andg$<"6"thengosub44800:goto14000
  18. 13600 gosub45600
  19. 13800 gosub52400:print"[215]ahl    1 - 5 ";:fort=0to200:nextt:goto13000
  20. 14000 onval(g$)gosub22000,25600,29600,14400,35600
  21. 14200 goto11400
  22. 14400 :
  23. 14600 rem input auf diskette
  24. 14800 print"[147][144]";:poke53280,8:poke53281,8
  25. 15000 gosub43600:z=1:s=1:gosub52400:print"[206] e u : [196] i s k v e r s i o n : [206] e u"
  26. 15200 print:print"[193]b sofort gibt es [201][206][208][213][212] 64[146] auch auf"
  27. 15210 print"[196]iskette. [205]it gleichem [201]nhalt, mit"
  28. 15220 print"[210]ahmenprogramm, nur ohne [211]pulerei."
  29. 15230 print:print"[211]ie koennen die [196]iskette direkt beim"
  30. 15240 print"[214]erlag [200]einz [200]eise [199]mb[200][160]bestellen; die"
  31. 15250 print"einzelne [193]usgabe kostet [196][205] 16,80 plus"
  32. 15260 print"[196][205] 3,- fuer [208]orto und [214]erpackung."
  33. 15270 print:print"[197]in [193]bonnement kostet pro [202]ahr [196][205] 198,-"
  34. 15280 print"incl. [208]orto und [214]erpackung. [197]s ist"
  35. 15290 print"jederzeit formlos zur uebernaechsten":print"[193]usgabe kuendbar."
  36. 15400 gosub47200:return
  37. 15600 :
  38. 22000 rem redaktuer
  39. 22200 print"[147][144]";:poke53280,8:poke53281,8
  40. 22400 gosub43600:z=1:s=3:gosub52400:print"[210] e d a k t e u r   g e s u c h t "
  41. 22600 print:print:print"[201][206][208][213][212][160]64 hat alle [197]rwartungen"
  42. 22800 print"uebertroffen - steigen [211]ie ein!":print
  43. 23000 print"[158][215]ir suchen eine(n) [198]achredakteur(in).":print
  44. 23200 print"[215]enn [211]ie:":print
  45. 23400 print"- [201]deen fuer die [215]eiterentwicklung"
  46. 23600 print"  eines neuen [208]roduktes haben,"
  47. 23800 print"- [203]ontakte mit [193]utoren herstellen und"
  48. 24000 print"  pflegen koennen,
  49. 24200 [153]"- ueber fundierte (NULL)enntnisse in peekatn(NULL)right$len"
  50. 24400 [153]"  und atn(NULL)(NULL)val(NULL)peek(NULL)val(NULL) verfuegen"
  51. 24600 [153]"- sowie (NULL)pass an engagierter (NULL)eamarbeit"
  52. 24800 [153]"  haben,":[153]
  53. 25000 [153]"sysdann rufen (NULL)ie doch mal an!"
  54. 25200 [141]47200:[142]
  55. 25400 :
  56. 25600 [143] autor
  57. 25800 [153]"loadstop";:[151]53280,8:[151]53281,8
  58. 26000 [141]43600:z[178]1:s[178]4:[141]52400:[153]"atn u t o r e n    g e s u c h t "
  59. 26200 [153]:[153]:[153]"atnuch (NULL)ie koennen sich mit (NULL)rogrammen"
  60. 26400 [153]"an den naechsten atnusgaben von right$(NULL)(NULL)(NULL)(NULL) 64wait"
  61. 26600 [153]"beteiligen.":[153]
  62. 26800 [153]"(NULL)enn (NULL)ie interessante (NULL)rogramme haben"
  63. 27000 [153]"- die selbstverstaendlich noch nicht"
  64. 27200 [153]"veroeffentlicht sind - wuerden wir gerne";
  65. 27400 [153]"mit right$hnen ueber den atnnkauf der (NULL)echte"
  66. 27600 [153]"sprechen.":[153]
  67. 27800 [153]"peekitte beachten (NULL)ie aber die technischen"
  68. 28000 [153]"und sonstigen atnnforderungen, die in"
  69. 28200 [153]"unserem peekeiheft aufgefuehrt sind.":[153]
  70. 28400 [153]"(NULL)enn (NULL)ie atnssembler gut beherrschen und"
  71. 28600 [153]"an atnuftragsprogrammierung interessiert"
  72. 28800 [153]"sind, nehmen (NULL)ie bitte mit uns"
  73. 29000 [153]"(NULL)ontakt auf."
  74. 29200 [141]47200:[142]
  75. 29400 :
  76. 29500 [143] wettbewerb
  77. 29600 [153]"loadstop";:[151]53280,8:[151]53281,8
  78. 29800 [141]43600:z[178]1:s[178]9:[141]52400:[153]"(NULL) e t t b e w e r b"
  79. 30000 [153]:[153]:[153]"left$aben (NULL)ie endlich right$hr seit (NULL)onaten"
  80. 30200 [153]"geplantes (NULL)chachprogramm fertig? (NULL)der"
  81. 30400 [153]"eine (NULL)oeglichkeit gefunden, mit dem len64"
  82. 30500 [153]"einen right$peek(NULL)-(NULL)len zu simulieren?":[153]
  83. 30510 [153]"atnber auch, wenn (NULL)ie ein schoenes (NULL)piel-"
  84. 30520 [153]"(NULL)rogramm geschrieben haben, sollten (NULL)ie"
  85. 30600 [153]"es schleunigst in einen peekriefumschlag"
  86. 30800 [153]"stecken und uns schicken.":[153]
  87. 30850 [153]"(NULL)it etwas chr$lueck koennen (NULL)ie dadurch"
  88. 30870 [153]:[153]"             sys3000 str$(NULL)":[153]
  89. 30880 [153]"zur atnufbesserung right$hrer (NULL)rlaubskasse"
  90. 30890 [153]"dazugewinnen."
  91. 32200 [141]48800
  92. 32400 :
  93. 32600 [153]"loadstop";:[151]53280,8:[151]53281,8
  94. 32800 [141]43600:z[178]1:s[178]9:[141]52400:[153]"(NULL) e t t b e w e r b"
  95. 33000 [153]:[153]:[153]"ascuer alle, die es noch nicht wissen:":[153]
  96. 33200 [153]"(NULL)ir suchen fuer right$(NULL)(NULL)(NULL)(NULL) 64wait laufend 'str$as"
  97. 33400 [153]"(NULL)riginellste (NULL)rogramm'. peekei diesem"
  98. 33600 [153]"(NULL)ettbewerb gibt es keinen valinsende-"
  99. 33800 [153]"schluss, der atnufruf wird jeden (NULL)onat":[153]"erneuert.":[153]
  100. 34000 [153]"ascuer den chr$ewinner liegt bei uns"
  101. 34200 [153]"staendig ein (NULL)check ueber":[153]
  102. 34400 [153]"               sys3000 str$(NULL)":[153]
  103. 34600 [153]"bereit. str$en wuerden wir gerne wieder"
  104. 34800 [153]"einmal vergeben. (NULL)ir warten also auf"
  105. 35000 [153]"right$hre genialen valinfaelle und wuenschen"
  106. 35100 [153]"right$hnen viel chr$lueck!"
  107. 35200 [141]47200:[142]
  108. 35400 :
  109. 35600 [143] vorschau
  110. 35800 [153]"loadstop";:[151]53280,8:[151]53281,8
  111. 36000 [141]43600:z[178]1:s[178]5:[141]52400:[153]"(NULL) o r s c h a u  right$(NULL)(NULL)(NULL)(NULL)close64  5/85"
  112. 36200 [153]:[153]:[153]"sysright$n der naechsten atnusgabe von right$(NULL)(NULL)(NULL)(NULL) 64wait"
  113. 36400 [153]"finden, sehen und hoeren (NULL)ie:":[153]:[153]
  114. 36600 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)-peekright$(NULL)val - valin (NULL)rogramm zur peekerechnung";
  115. 36800 [153]"  und (NULL)eberpruefung von (NULL)otorleistungen":[153] :[153]
  116. 37000 [153]"left$right$(NULL)(NULL)val(NULL)chr$(NULL)(NULL)(NULL)str$(NULL)(NULL)(NULL)right$(NULL)(NULL)(NULL) - peekeobachten (NULL)ie"
  117. 37200 [153]"  (NULL)peicherbereiche, wie sie sich beim"
  118. 37300 [153]"  (NULL)rogrammlauf veraendern.":[153]:[153]
  119. 37400 [153]"peekright$(NULL)(NULL) & peek(NULL)(NULL)val(NULL) right$(NULL) (NULL)right$len - (NULL)eil 5 des (NULL)urses"
  120. 37600 [153]"  lueftet die letzten chr$eheimnisse des"
  121. 37700 [153]"  (NULL)ideo-lenhips.":[153]
  122. 37800 [141]48800
  123. 37820 [153]"loadstop";:[151]53280,8:[151]53281,8
  124. 37840 [141]43600:z[178]1:s[178]5:[141]52400:[153]"(NULL) o r s c h a u  right$(NULL)(NULL)(NULL)(NULL) 64  5/85":[153]:[153]:[153]
  125. 37860 [153]"sysatnusserdem gibt es natuerlich wieder"
  126. 37880 [153]"die (NULL)ubriken:":[153]
  127. 37900 [153]" - left$ilfsprogramme"
  128. 37920 [153]" - (NULL)ews"
  129. 37940 [153]" - 64er (NULL)ips":[153]
  130. 37960 [153]"syssowie atnnwenderprogramme, (NULL)piele,..."
  131. 38000 [153]"sys                      str$ie atnusgabe 5/85"
  132. 38200 [153]"sys                      erhalten (NULL)ie ab"
  133. 38400 [153]"                      20. (NULL)ai 1985"
  134. 38600 [141]47200:[142]
  135. 38800 :
  136. 39000 :::::::::::::::::::::::::::::
  137. 39200 [143] ****  unterprogramme ****
  138. 39400 :::::::::::::::::::::::::::::
  139. 39600 :
  140. 43400 [143] rahmen fuer seitenueberschrift
  141. 43600 z[178]0:s[178]0:[141]52400
  142. 43800 [153]"stoportantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  143. 44000 [153]"(NULL)                                      (NULL)";
  144. 44200 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";:[142]
  145. 44400 :
  146. 44600 [143] gueltige eingabe
  147. 44800 [151]si,59:[151]si[170]1,139:[151]si[170]6,240:[151]si[170]4,17
  148. 45000 [151]si[170]24,15:[129]t[178]0[164]100:[130]t:[151]si[170]4,0:[142]
  149. 45200 :
  150. 45400 [143] ungueltige eingabe
  151. 45600 [151]si,180:[151]si[170]1,8:[151]si[170]6,240:[151]si[170]4,17
  152. 45800 [151]si[170]24,15:[129]t[178]0[164]100:[130]t:[151]si[170]4,0:[142]
  153. 46000 :
  154. 46200 [143] ton graphik
  155. 46400 [151]si,117:[151]si[170]1,6:[151]si[170]5,15:[151]si[170]6,90:[151]si[170]24,15:[151]si[170]4,17
  156. 46600 [129]t[178]0[164]150:[130]t:[151]si[170]4,16:[142]
  157. 46800 :
  158. 47000 [143] abfrage fuer i
  159. 47200 z[178]24:s[178]0:[141]52400:[153]"sysright$nhalt =  right$ wait";:[129]t[178]0[164]200:[130]t
  160. 47400 [161]g$:[139]g$[178]""[167]48000
  161. 47600 [139]g$[178]"i"[176]g$[178]"right$"[167][141]44800:[137]48200
  162. 47800 [141]45600
  163. 48000 [141]52400:[153]"right$nhalt =  right$  ";:[129]t[178]0[164]200:[130]t:[137]47200
  164. 48200 [141]52400:[153]"                  ";:[142]
  165. 48400 :
  166. 48600 [143] abfrage fuer w
  167. 48800 z[178]24:s[178]0:[141]52400:[153]"sys(NULL)eiter =  (NULL) wait";:[129]t[178]0[164]200:[130]t
  168. 49000 [161]g$:[139]g$[178]""[167]49600
  169. 49200 [139]g$[178]"w"[176]g$[178]"(NULL)"[167][141]44800:[137]49800
  170. 49400 [141]45600
  171. 49600 [141]52400:[153]"(NULL)eiter =  (NULL)  ";:[129]t[178]0[164]200:[130]t:[137]48800
  172. 49800 [141]52400:[153]"                 ";:[142]
  173. 50000 :
  174. 50200 [143] abfrage fuer w + i
  175. 50400 z[178]24:s[178]0:[141]52400
  176. 50600 [153]"sys(NULL)eiter =  (NULL) wait   /  right$nhalt =  right$ wait";:[129]t[178]0[164]150:[130]t
  177. 50800 [161]g$:[139]g$[178]""[167]51400
  178. 51000 [139]g$[178]"w"[176]g$[178]"(NULL)"[176]g$[178]"i"[176]g$[178]"right$"[167][141]44800:[137]51800
  179. 51200 [141]45600
  180. 51400 [141]52400:[153]"(NULL)eiter =  (NULL)    /  right$nhalt =  right$ ";:[129]t[178]0[164]200:[130]t
  181. 51600 [137]50400
  182. 51800 [141]52400:[153]"                                     ";:[142]
  183. 52000 :
  184. 52200 [143] curser setzen
  185. 52400 [151]214,z:[151]211,s:[158]58640:[153]"";:[142]
  186.